home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / clipwhat.zip / DEMODRIV.PRG < prev    next >
Text File  |  1993-01-04  |  914b  |  45 lines
  1.  
  2. clear
  3. external mainscrn, popup1, popup2, main2, main2sub, fast1, fastone,;
  4.          fasttwo, fastthre, fastfour, fastlast, curson, cursoff
  5. do cursoff        && turn cursor off
  6. do mainscrn
  7. do pause with 1000
  8. save screen
  9. do popup1
  10. do pause with 500
  11. do popup2
  12. do pause with 1500
  13. do main2
  14. @ 22,10 say "Press spacebar"
  15. keypress = inkey(8)
  16. do main2sub
  17. @ 21,10 say "These all had large delays for reading built in.  The screens"
  18. @ 22,10 say "can really pop up quickly (with small delays).  Press a key..." 
  19. keypress = inkey(5)
  20. clear
  21. do mainscrn
  22. do pause with 100
  23. do fast1
  24. do pause with 100
  25. do fastone
  26. do pause with 100
  27. do fasttwo
  28. do pause with 50
  29. do fastthre
  30. do pause with 50
  31. do fastfour
  32. do pause with 25
  33. do fastlast
  34. @ 22,10 say "Press a key to quit."
  35. keypress = inkey(10)
  36. clear
  37. do curson  && restore cursor
  38. quit
  39.  
  40. procedure pause
  41. parameter counter
  42. for x = 1 to counter
  43. next
  44. return
  45.